home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_100 / 157_01 / qed < prev    next >
Text File  |  1987-10-10  |  14KB  |  628 lines
  1. /*  VERSION 0021  (DATE: 28/04/87)  (TIME: 16:59)  */
  2. /*
  3.     e (qed) screen editor
  4.  
  5.     (C) G. Nigel Gilbert, MICROLOGY, 1981
  6.     licensed for private non-profitmaking use 1983
  7.     
  8.     August-December 1981
  9.  
  10.     Modified: Aug-Dec     1984:  BDS-C 'e'(vers 4.6a) to 'qe' (J.W. Haefner)
  11.               March        1985:  BDS-C 'qe' to DeSmet-C 'qed' (J.W. Haefner)
  12.  
  13.     FILE: qed
  14.  
  15.     FUNCTIONS: main, initialise, edit, finish, seldisk
  16.  
  17.     PURPOSE: initialise; process commands;
  18.  
  19. */
  20.  
  21. #include "qed.h"
  22. #define VERNO 0x30        /* get MSDOS version number */
  23.  
  24. main(argc,argv)
  25. int argc;
  26. char **argv;
  27. {
  28.     int argn;
  29.     int i;
  30.     char *dig;
  31.  
  32. /**************************Default option settings***************************/
  33.  
  34.     initjmp=1;            /*jmp to line 1*/
  35.     autoin=YES;            /*auto indent  [YES/NO]*/
  36.     backup=YES;            /*make ".BAK" file [YES/NO]*/
  37.     readall=YES;        /*read as much text as possible up to memory*/
  38.     trail=NO;            /*don't strip trailing blanks [YES/NO]*/
  39.     helpon=NO;            /*start with help menu on [YES/NO]*/
  40.     expert=YES;            /*brief prompts [YES/NO]*/
  41.     tabwidth=4;            /*tab stops every n cols [number]*/
  42.     displaypos=YES;        /*display line:column at top of screen*/
  43.     blockscroll=NO;        /*don't scroll whole page, just current line*/
  44.     pagingdisk=0;        /*create buffer file on this disk -
  45.                             set to either 0 (for currently logged-in disk)
  46.                             or to desired disk letter  (eg 'B') */
  47.     wboot=YES;            /*do a warm boot at end of edit [YES/NO]*/
  48.     defext[0]='\0';        /* default extension */
  49. #if WWRAP
  50.     rtmarg=LLIM;        /* right margin*/
  51. #endif
  52. #if VRSNNUM
  53.     version=YES;        /* change version num on save*/
  54.     *date='\0';
  55.     *time='\0';
  56. #endif
  57.  
  58. /***********************End of default option settings***********************/
  59.  
  60.  
  61.     inbufp=0;
  62.     if((_os(VERNO,0) & 0x00ff) < 2) {
  63.         puts("Must use MSDOS vers 2.x with 'qed'");
  64.         exit(0);
  65.         }
  66.     filename[0]=name[0]='\0';
  67.  
  68.     argn=0;    
  69.     while (++argn < argc)
  70.         if (*argv[argn] == '-') {
  71.             dig=argv[argn]+1;
  72.             switch(toupper(*dig)) {
  73.             case 'J' :
  74.                 initjmp = atoi((argv[argn]+2));
  75.                 break;
  76.             case 'A' :
  77.                 autoin=!autoin; 
  78.                 break;
  79.             case 'B' : 
  80.                 backup=!backup; 
  81.                 break;
  82.             case 'L' :
  83.                 displaypos=!displaypos;
  84.                 break;
  85.             case 'H' :
  86.                 blockscroll=!blockscroll;
  87.                 break;
  88.             case 'R' :
  89.                 readall=!readall;
  90.                 break;
  91. #if WWRAP
  92.             case 'M' :
  93.                 rtmarg=0;
  94.                 rtmarg=atoi((argv[argn]+2));
  95.                 if (rtmarg < LLIM) {
  96.                     trail=YES;
  97.                     autoin=NO;
  98.                 }
  99.                 break;
  100. #endif
  101.             case 'T' : 
  102.                 tabwidth=0;
  103.                 while (*++dig) tabwidth=tabwidth*10+*dig-'0';
  104.                 break;
  105.             case 'S' :
  106.                 trail=!trail; 
  107.                 break;
  108. #if VRSNNUM
  109.             case 'U' :
  110.                 version = !version;
  111.                 break;
  112. #endif
  113.             case 'V' : 
  114.                 helpon=!helpon; 
  115.                 break;
  116.             case 'E' :
  117.                 expert=!expert;
  118.                 break;
  119.             case 'X' : 
  120.                 wboot=!wboot; 
  121.                 break;
  122.             case 'D' : 
  123.                 pagingdisk=toupper(*(dig+1));
  124.                 if (pagingdisk >= 'A' && pagingdisk <= 'P') break;
  125.             default  : 
  126.                 putstr("Illegal option: "); 
  127.                 putstr(argv[argn]);
  128.                 exit();
  129.                 }
  130.             }
  131.         else strcpy(filename[0] ? name : filename,argv[argn]);
  132.  
  133.     ans[0]=patt[0]=changeto[0]=opts[0]='\0';
  134.     
  135.     keytranslate();
  136.     do {
  137.         initialise();
  138.         edit();
  139.         } 
  140.     while (YES);
  141. }
  142.  
  143. initialise()
  144. {
  145.     int i,warn;
  146.  
  147.     cursorx=charn=offset=lastoff=from=to=0;
  148.     cursory=topline=lastread=lastl=findir=jmpto=1;
  149.     changed=isdim=replace=repeat=blocking=warn=blankedmess=NO;
  150.     pfirst=-100;
  151.     goteof=YES;
  152.     errmess=NULL;
  153.     
  154.     curdsk=_os(CURDSK);
  155.     bakpath[0]='B';
  156.     bakpath[1]=':';
  157.     bakpath[2]='\\';
  158.     bakpath[3]='\0';
  159.  
  160.     initvm();
  161.  
  162.     text[0]='\0';
  163.     cline=1;
  164.     altered=YES;
  165.     puttext();
  166.  
  167.     setstatusname();
  168.     if (filename[0]) {
  169.         putclr();
  170.         gotoxy(8,11);
  171.         putstr("qed  screen editor  version "); 
  172.         putstr(VERSION);
  173.         gotoxy(12,12);
  174.         putstr("MICROLOGY 1983 and JWH 1985");
  175.         gotoxy(12,13);
  176.         terminal();
  177.         while (opentext(filename) == FAIL) {
  178.             if (opentext(strcat(filename,defext)) == FAIL) {
  179.                 askforfile();
  180.                 if (!filename[0]) goto newfile;
  181.                 }
  182.             }
  183.         lastl=UNKNOWN;
  184.         lastread=0;
  185.         goteof=NO;
  186.         if (name[0]) {
  187.             strcpy(filename,name); 
  188.             name[0]='\0';
  189.             }
  190.         }
  191. newfile: errmess=NULL;
  192.     format(filename);
  193.         /*read as much text to fill memory or end of file*/
  194.     if (readall)
  195.         for (i=1;(!(usage[slotsinmem-1]) && (!(goteof)));i+=100)
  196.             readtext(i);
  197.     setstatusname();
  198.     gettext(1);
  199.     putclr();
  200.     if (helpon) dohelp();
  201.     if (initjmp>2) {                 /* (2-1) is a bad jump from line 1 */
  202.         jumpline(initjmp-cline);    /* not possible to do init jump to 2*/
  203.         initjmp=0;
  204.         putstatusline(cline);
  205.         }
  206.     else
  207.         putpage();
  208. }
  209.  
  210. edit()        /*command processor*/
  211. {
  212.     char c;
  213.     char oldcrx,inc;
  214.     int to;
  215.  
  216.     setjmp(0);
  217.  
  218.     while (YES) {
  219.         goodline=cline;
  220.         if ((expert) && (!blankedmess)) xmessoff();
  221.         else if (!blankedmess) unmess();
  222.         putlineno(cline);
  223.         resetcursor();
  224.         c=getkey();
  225.         if (errmess != NULL) {
  226.             errmess=NULL;
  227.             putstatusline(cline);
  228.             }
  229.         switch(c) {
  230.         case DOWNKEY    : 
  231.             moveline(1); 
  232.             break;
  233.         case UPKEY    : 
  234.             moveline(-1); 
  235.             break;
  236.         case LEFTKEY    : 
  237.             movechar(-1); 
  238.             break;
  239.         case RIGHTKEY    : 
  240.             movechar(1); 
  241.             break;
  242.         case LEFTWKEY    : 
  243.             moveword(-1); 
  244.             break;
  245.         case RIGHTWKEY    : 
  246.             moveword(1);  
  247.             break;
  248.         case BOLKEY    : 
  249.             sync(0); 
  250.             break;
  251.         case EOLKEY    : 
  252.             sync(strlen(text)); 
  253.             break;
  254.         case UPPAGE    : 
  255.             movepage(-1); 
  256.             break;
  257.         case DOWNPAGE    : 
  258.             movepage(0); 
  259.             break;
  260.         case HOMEKEY    : 
  261.             if (jumpline(lastl-cline)) sync(strlen(text));
  262.             break;
  263.         case BOFKEY    : 
  264.             if (jumpline(1-cline)) sync(0);
  265.             break;
  266.         case DELLEFT    :
  267.             changed=YES;
  268.             deletechar(-1); 
  269.             break;
  270.         case DELRIGHT    : 
  271.             deletechar(0);
  272.             changed=YES;
  273.             break;
  274.         case DELLNKEY    :
  275.             changed=YES;
  276.             strcpy(textb,text);        /*save for undelete line*/
  277.             text[0]='\0';
  278.             crdelete((cline == lastl ? -1 : 0)); 
  279.             break;
  280.         case DELWDKEY    :
  281.             changed=YES;
  282.             deleteword(); 
  283.             break;
  284.         case JUMPKEY    :
  285.             if (expert) xprtmess("J ? ");
  286.             else putmess("Jump ([+/-]n,RET=crnt) ? ");
  287.             scans(ans,8);
  288.             if (!*ans) jmpto = cline;
  289.             else
  290.                 calcjmp();
  291.             if (expert) xmessoff();
  292.             break;
  293.         case TOPSCRKEY    :
  294.             moveline((topline-cursory));
  295.             break;
  296.         case BOTSCRKEY    :
  297.             moveline((SHEIGHT-cursory));
  298.             break;
  299.          case REPKEY    :
  300.             repeat=YES; 
  301.             dofindrep(1,1);
  302.             repeat=NO; 
  303.             break;
  304.         case BLOCKKEY    : 
  305.             switch (to=blockops()) {
  306.             case YES :    return;
  307.                         break;
  308.             case 'x' :
  309.             case 'q' :  if (finish(to)==YES) return;
  310.                         break;
  311.             case 'r' :
  312.                 if (expert) xprtmess("Read file? ");
  313.                 else putmess("File to read? ");
  314.                 scans(name,FILELEN);
  315.                 if (*(name))  {
  316.                     readfile(name);
  317.                     putpage();
  318.                     changed=YES;
  319.                     }
  320.                 break;
  321.             }
  322.             break;
  323.         case SCRLDNKEY    :
  324.             /* original: slow but sure
  325.             oldcrx = cursorx;
  326.             to = plast-cline;
  327.             moveline(to);
  328.             inc=( (moveline(1)==YES) ? 1 : 0);
  329.             cursorx = oldcrx;
  330.             moveline(((cline-to)<=pfirst) ? (topline-cursory) : (-to - inc));
  331.             */
  332.               /* new: 29.viii.86*/
  333.             if(cursory==topline) puttext();
  334.             if (plast>=(pfirst+2)) {
  335.                 linedelete(topline);
  336.                 inc = plast-pfirst;
  337.                 if (plast<lastl) {
  338.                     getline(++plast);
  339.                     putline(plast,
  340.                         (inc<(SHEIGHT-topline)) ? (inc) : SHEIGHT);
  341.                 }
  342.                 pfirst++;
  343.                 if (cursory==topline) gettext(pfirst);
  344.                 cursorx=adjustc(cursorx);
  345.                 gotoxy(cursorx, (cursory -= cursory>topline ? 1 : 0));
  346.             }
  347.             break;
  348.         case UNDELINE :
  349.             /*  helpon via kontext key
  350.             if (helpon) {
  351.                 helpon=NO;
  352.                 unmess();
  353.                 }
  354.             else {
  355.                 helpon=YES; 
  356.                 dohelp();
  357.                 } 
  358.             */
  359.             puttext();
  360.             cline=inject(cline,textb);
  361.             if (cursory>=SHEIGHT) {
  362.                 linedelete(topline);
  363.                 gotoxy(0,cursory);
  364.                 gettext(cline);
  365.                 putline(cline,cursory);
  366.                 plast++;
  367.                 pfirst++;
  368.             }
  369.             else {
  370.                 gotoxy(0,++cursory);
  371.                 insertline();
  372.                 gettext(cline);
  373.                 putline(cline,cursory);
  374.                 if ((plast-pfirst) < SHEIGHT-topline) plast++;
  375.             }
  376.             break;
  377.         case CR        :
  378.             changed=YES;
  379.             crinsert(0); 
  380.             break;
  381.         case CRSTILL    :
  382.             changed=YES;
  383.             crinsert(-1); 
  384.             break;
  385.         case SCRLUPKEY   :
  386.             /* original: save current cursorx
  387.             oldcrx = cursorx;
  388.             to = toplin